0 GOSUB44:DIMQT$(100,1):CT=1:RT$=CHR$(13)
1 POKE53281,0:POKE53280,0:POKE646,13:PRINT"[147]                    [146]":PRINT" <<< QUIZ  TIME >>> [146]":PRINT"                    [146]":PRINT"[158] 1 [146]  PREPARE A QUIZ [146]":PRINT"[158] 2 [146]  LOAD A QUIZ [146]":PRINT"[158] 3 [146]  SAVE A QUIZ [146]"
2 PRINT"[158] 4 [146]  DISK DIRECTORY [146]":PRINT"[158] 5 [146]  QUIT PROGRAM [146]":PRINT" SELECT OPTION [146]"
3 GETA$:IFA$="1"THENGOTO9
4 IFA$="2"THENGOTO13
5 IFA$="3"THENGOTO21
6 IFA$="4"THENGOTO23
7 IFA$="5"THENGOTO24
8 GOTO3:END
9 PRINT"[147]                                        [146]";:PRINT" < QUESTION PLEASE  THEN PRESS RETURN > [146]";:PRINT"                                        [146]";:PRINT"[153]        UP TO 80 CHARACTERS ONLY        [146]";:PRINT" QUESTION NUMBER [146] : ";" [157]";CT;"[157] [146]"
10 POKE19,1:INPUTQT$(CT,0):POKE19,0:PRINT"":PRINT"                                        [146]";:PRINT" < ANSWER PLEASE    THEN PRESS RETURN > [146]";:PRINT"                                        [146]";:PRINT"[153]        UP TO 80 CHARACTERS ONLY        [146]";
11 PRINT" ANSWER NUMBER [146] : ";" [157]";CT;"[157] [146]":POKE19,1:INPUTQT$(CT,1):POKE19,0:PRINT"[147]                        [146]":PRINT" < ANY MORE QUESTIONS > [146]  Y / N":PRINT"                        [146]":GOSUB26:IFA$="Y"THENCT=CT+1:IFCT<100THENGOTO9
12 GOSUB42:GOTO1
13 SC=0:QT=0:PRINT"[147][153]                                  [146]":PRINT" << ENTER QUIZ FILENAME PLEASE >> [146]":PRINT"                                  [146]":POKE19,1:INPUTNM$:POKE19,0:PRINT"[147]                                     [146]"
14 PRINT" <<< IS DISK DRIVE READY TO LOAD >>> [146]":PRINT"                                     [146]":GOSUB43:GOSUB28:PRINT"[147] LOADING QUIZ [146] : ";NM$:OPEN1,8,0,NM$:OPEN15,8,15:GOSUB46:INPUT#1,CT:FORL1=1TOCT:FORL2=0TO1:INPUT#1,QT$(L1,L2):NEXT:NEXT:CLOSE1:CLOSE15:PRINT"[147] READY TO GO  !!!!!! [146]"
15 GOSUB43:GOSUB28:TI$="000000"
16 PRINT"[147][153] SCORE IS [146] :";SC;"      OUT OF [146] :";QT:PRINT" TIME TAKEN IS [146] : ";:TM$=TI$:PRINTMID$(TM$,1,2)+":"+MID$(TM$,3,2)+":"+MID$(TM$,5,2):QT=QT+1:PRINT" QUESTION [146] :";QT:RD=INT(RND(1)*CT)+1:PRINT"";QT$(RD,0):PRINT" ANSWER PLEASE [146]":INPUT"";AN$
17 IFAN$=QT$(RD,1)THENPRINT"[153] YOU ARE CORRECT [146]":SC=SC+1:GOTO30
18 PRINT"[153] YOU ARE WRONG [146] !!":GOTO36
19 PRINT"[147] ANOTHER QUESTION [146] Y / N":GOSUB26:IFA$="Y"THEN16
20 PRINT"[147]":PRINT"[147][153] SCORE IS [146] :";SC;"      OUT OF [146] :";QT:PRINT" TIME TAKEN WAS [146] : "TI$:GOSUB43:GOSUB28:GOTO1
21 PRINT"[147][153]                                  [146]":PRINT" << ENTER QUIZ FILENAME PLEASE >> [146]":PRINT"                                  [146]":POKE19,1:INPUTNM$:POKE19,0:PRINT"[147]                                     [146]":PRINT" <<< IS DISK DRIVE READY TO SAVE >>> [146]"
22 PRINT"                                     [146]":GOSUB43:GOSUB28:PRINT"[147] SAVING QUIZ [146] : ";NM$:OPEN1,8,1,NM$:PRINT#1,CT;RT$:FORL1=1TOCT:FORL2=0TO1:PRINT#1,QT$(L1,L2)RT$:NEXT:NEXT:CLOSE1:GOTO1
23 PRINT"[147]":SYS828:GOSUB43:GOSUB28:GOTO1
24 PRINT"[147] ARE YOU SURE [146] Y / N":GOSUB26:IFA$="N"THENGOTO1
25 SYS64738
26 GETA$:IFA$<>"Y"ANDA$<>"N"THEN26
27 RETURN
28 GETKP$:IFKP$=""THEN28
29 RETURN
30 ONRND(1)*5+1GOSUB31,32,33,34,35:GOTO19
31 PRINT"OKAY, TAKE SOME APPLAUSE":GOSUB43:GOSUB28:GOTO19
32 PRINT"THINK YOU ARE GREAT I SUPPOSE":GOSUB43:GOSUB28:GOTO19
33 PRINT"SOMETHING SPECIAL":GOSUB43:GOSUB28:GOTO19
34 PRINT"BIG HEAD OR WHAT":GOSUB43:GOSUB28:GOTO19
35 PRINT"SENSATIONAL, TAKE A APPLE":GOSUB43:GOSUB28:GOTO19
36 ONRND(1)*5+1GOSUB37,38,39,40,41:GOTO19
37 PRINT"WHAT A BURK !!!":GOSUB43:GOSUB28:GOTO19
38 PRINT"ARE YOU DAFT OR SOMETHING":GOSUB43:GOSUB28:GOTO19
39 PRINT"JUST NO ANSWER TO THAT":GOSUB43:GOSUB28:GOTO19
40 PRINT"GIVE ME A BREAK WILL YOU":GOSUB43:GOSUB28:GOTO19
41 PRINT"WHERE ARE YOU COMING FROM":GOSUB43:GOSUB28:GOTO19
42 PRINT"[147]PLEASE CHOOSE [158] OPTION 3 [146] IN THE MENU TO":PRINT"SAVE YOUR QUIZ.":GOSUB43:GOSUB28:RETURN
43 PRINT"[158] PRESS ANY KEY [146]":RETURN
44 RESTORE:FORDI=828TO932:READDA:POKEDI,DA:NEXTDI:RETURN:DATA169,36,133,251,169,251,133,187:DATA169,0,133,188,169,1,133,183:DATA169,8,133,186,169,96,133,185:DATA32,213,243,165,186,32,180,255:DATA165,185,32,150,255,169,0,133:DATA144,160,3,132,251,32,165,255:DATA133,252,164,144,208,47,32,165
45 DATA255,164,144,208,40,164,251,136:DATA208,233,166,252,32,205,189,169:DATA40,32,210,255,32,165,255,166:DATA144,208,18,170,240,6,32,210:DATA255,76,136,3,169,13,32,210:DATA255,160,2,208,198,32,66,246,96
46 INPUT#15,E,E$,T,S:IFE<20THENRETURN
47 CLOSE1:CLOSE15:PRINT"[147]":PRINT"";E;"[157] ";E$;T;"[157]";S;"[157] [146]":PRINT"[158] << SEE DIRECTORY FOR CORRECT NAME >> [146]":FORDE=0TO1000:NEXTDE:RUN